
		**********************************************************
		** File: cleaning_La_Porta_et_al_1998.do				**
		** Paper: Human Trafficking Indicators: A New Dataset	**
		** Author: Richard Frank								**
		** Date: July 11, 2021									**
		** Task: Cleaning La Porta et al (1998) replication data**
 		**********************************************************


		clear all
		version 16.1
		set seed 1234
		set scheme lean1
		
		cd "~"
		
		** data source: https://scholar.harvard.edu/shleifer/publications?page=9
  
		import excel "La Porta et al 1998.xlsx", sheet("Sheet1") firstrow case(lower) clear

		*** Breaking out variable

		gen legal_british=0
		replace legal_british=1 if origin=="British"
		label var legal_british "Legal origin: British (La Porta et al. 1998)" 
		
		gen legal_french=0
		replace legal_french=1 if origin=="French"
		label var legal_french "Legal origin: French (La Porta et al. 1998)"

		gen legal_german=0
		replace legal_german=1 if origin=="German"
		label var legal_german "Legal origin: German (La Porta et al. 1998)"
		
		gen legal_scan=0
		replace legal_scan=1 if origin=="Scandinavian"
		label var legal_scan "Legal origin: Scandinavian (La Porta et al. 1998)"

		rename country Country
		run "/Users/rich/Dropbox/Data/COW/COW MASTER MERGE LIST.do"
		sort ccode
		tab Country if ccode==0

		drop if ccode==0
		order Country ccode
		rename Country country
		
		sort ccode
		browse if ccode==ccode[_n-1]
		
		save "La Porta et al 1998", replace
